Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 560,634.5 11,765.38 223,124.8 1,121,269 23,656.28 626,205.4 560,634.54 100
lp://DOT/LCDOT 3,636,532.9 40,278.21 1,546,412.4 3,625,438 40,160.21 1,591,789.5 11,094.78 2
lp://AUSD/LCDOT 2,077,208.0 38,474.20 1,360,407.5 2,070,745 39,010.97 1,441,150.4 6,463.01 1.2
lp://ACA/AUSD 2,371,200.1 35,660.33 1,466,473.9 2,365,706 35,658.96 1,566,328.4 5,494.38 1

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/AUSD -1,175,243.63 -2,097.76 -4,567.64 NA NA NA NA NA
lp://KINT/AUSD -1,200,195.74 -69.85 -6,573.09 NA NA NA NA NA
lp://PHA/AUSD -964,850.51 -172.60 -4,629.98 NA NA NA NA NA
lp://AUSD/KINT 1,177,268.96 -1,652.88 -6,542.38 21,251.79 65.34 11,468.97 1,156,017.17 NA
lp://AUSD/PHA 949,252.19 -1,381.43 -4,051.11 25,766.64 299.53 18,070.01 923,485.55 NA
lp://AUSD/KBTC 1,094,525.00 -860.58 -3,149.06 522,410.39 33,496.92 130,130.17 572,114.61 NA
lp://TAI/taiKSM 0.00 0.00 0.00 5,047.79 16.39 7,702.81 5,047.79 NA
lp://KAR/LKSM 566,771.06 73.87 209,154.87 570,260.37 140.80 249,474.62 3,489.31 NA
lp://KAR/KSM 828,059.18 939.70 390,066.21 829,062.01 938.96 391,473.95 1,002.82 NA
lp://AUSD/LKSM 449,546.02 1,341.67 369,178.27 450,278.34 1,346.72 393,681.85 732.32 NA
lp://KSM/LKSM 130,597.91 1,004.91 118,530.39 131,202.72 1,007.12 120,213.15 604.81 NA
lp://KAR/AUSD 440,402.68 2,551.94 191,541.97 440,643.77 2,551.31 254,333.02 241.09 NA
lp://AUSD/BNC 65,138.79 99.37 19,301.20 64,940.04 99.37 19,641.58 198.75 NA
lp://KAR/QTZ 20,352.69 34.20 4,918.97 20,441.41 45.39 11,538.80 88.72 NA
lp://KSM/ARIS 74.01 9.97 59.95 148.02 18.48 258.37 74.01 NA
lp://AUSD/QTZ 25,851.41 28.76 7,872.30 25,901.91 37.33 16,855.52 50.50 NA
lp://AUSD/RMRK 11,153.19 67.78 10,005.79 11,121.22 67.80 10,000.98 31.98 NA
lp://AUSD/KSM 553,319.54 5,199.17 653,805.39 553,340.34 5,199.17 654,485.31 20.80 NA
lp://KSM/RMRK 40,243.46 695.56 49,094.13 40,238.83 695.61 49,391.70 4.62 NA
lp://AUSD/CSM 26,138.08 432.90 8,821.23 26,142.59 432.90 12,100.14 4.52 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```